COMMENT ā VALID 00002 PAGES C REC PAGE DESCRIPTION C00001 00001 C00002 00002 REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE C00003 ENDMK Cā; REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE; REQUIRE "CARNES.REL[AER,HPM]" LOAD_MODULE; EXTERNAL REAL PROCEDURE VCAR(REFERENCE INTEGER PIC; INTEGER X1,Y1,X2,Y2; REFERENCE REAL RES); EXTERNAL INTEGER CARH12,CARW12;